home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
viewmrg.zip
/
RBBS-PC.MRG
< prev
next >
Wrap
Text File
|
1988-10-25
|
1KB
|
24 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce D:\LITE\RBBS-PC.BAS
* RBBS-PC.BAS: Date 10-12-1988 Size 138779 bytes
* ------------[ Created 10-25-1988 19:13:28 ]------------
* REPLACING old line(s) by new
346 GOSUB 466
FF = FALSE
* ------[ first line different ]------
'********** Delete all the files in ARKVIEW.PATH$ **********
'***********************************************************
'First create a Dummy file so the directory is not empty. It
'avoids having to use an ON ERROR routine if the directory
'is empty. Then just kill everything in the ARKVIEW.PATH$
'***********************************************************
CALL OPENOUTW( ARKVIEW.PATH$ + "\DANDAN.DAN") '10/09/88
CLOSE 2 '10/09/88
CALL KILLWORK (ARKVIEW.PATH$ + "\*.*") '10/09/88
'
'
'
' ***** GET USER NAME *
' ***** C - COMMAND FROM NEWUSER REGISTER OPTIONS (CHANGE NAME OR ADDRESS) *
'